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Us lead off this issue by apologising for jumping the gun 
about the battery clocks. He kreu they were coming and 
would be here shortly after ve vent to press and “assumed” 
that they would uork fine, coming from a reliable source. 


fs it turned out, that batch vould not work at all. 
Everytise ue set the clock, pouered down, ond turned the GL 
back on, the clock uas not correct. It is also very 
difficult to install. The board plugs into the $292 chip 
socket. The $282 plugs into the bord. The board vill rub 
against a diode on the right side of the 8352 socket which 
vill have to be "pushed" out of the uy. You also uill hove 
to unplug the tuo ribbon connectors to the keyboard in 
oder to set to the 8382 socket. THIS IS HOT AN EASY BOARD 
TO IXSTALL!! Please be very careful. 


As a sideline to the chowe, if any of you ever experience 
dead Heys on your A, the first thing to suspect, ond 
rightly so, is the peabrane keyboard. Houever, sometimes, 
instead of having to replace it, you aight find that upon 
cloze examination of the tuo cables that plug into the PLR, 
there yiil be hairline cracks at the base which are causing 
the problem. If you “tria a quarter inch or so off with a 
pair of sharp scissors and re-install thea into the 
sockets, usu might find this clears up everything fine. 


FRACTURED FRACTALS 
BY Marshall Stiles xxxx 


You have no doubt seen some cosputer generated landscapes 
or other objects. If you sav amy of the Stor Trek movies, 

you did see a computer representation of an object on the 

screen sade up of repetative squares, triangles, circles or 
curving lines. Unless the gecuetric cbjects making up the 
surfaces are filled in op shaded, you con “see throush” the 

grid like surfaces. These ore mony times referred to as 
fractal representations. 


The program belou demonstrates the basic principle of how a 
arming of this type con be sade to represent uneven 
surfaces. It does rot generate a vast landscape using the 
repetaiive operations on a decreasing scale like a true 
fractal generator. What it does do, is to let you 
emipulate a rectangular looking object divided into four 
triengles. It decreases in scale tousrd the upper part of 
the screen to sive the illusion of distance. If you think 
of the object as a flat parcel of land at sea level, you 
vill gt the idea, Keys “1° to "F allow you to raise the 
five points of intersect in the dwing, one dot at a tine, 
above sea level. “ESC” lets you quit, in case you vont to 
start over. i 


Yas should notice several things. If you raise each point 
the sone number of key strokes the object is the some, but 
x mmber of dots above sea level. Pressing the “5S” key vill 
raise the center point and will create a 3 demensional 
pyramid, Raising only the outer points keys “1” to “4° 
vill create an irverted prid. 


To create on impressive fractal representation you wuld 
wnt a large mmber of these seometric shapes, smaller in 
size and cormected to ore another. This vould be kind of 


like faving a see through quilt sade of shapes of relative 
size. Hopefully the folloving program vill help you gat a 
good picture of what is taking place in this tpe of 
display! 


118 REHork fractali_bass Harshal | Stiles, inv 
128 PAPER 2: CLS : PAPER @ : INK 7 

138 initialisea 

148 drouline 

158 keyscon 

$99 STOP 

1028 Fine PROCedure initialise 

{818 tix = 1: tty =. : ReMork icer left 

1828 irx = 188: iry = i REfork lover right 
1008 ulx = 25 : uly = 5A : FEMark upper left 
1848 ux = 73: pets REMark upper riaht 
1658 Cx = 58 : Cy = 33 : ek center point 
i868 EHD [EFire initialise 

2088 (EF ine Riede drayline 

20418 LIKE Uxylly TO lrvyley TO Cxefy TO Utxstly 
2628 LIKE Uxslly TO ulxsuly TH CxsCy 

2858 LIH ulxjuiy TO upxyury TO Cx,Cy 

2048 LINE urxyury TO Irxyiry 

2399 EHD Fire droulin 

3288 DEF ine PROCedure keyscan 

3018 REPeat loopl 

220 kš=IMKEY$ 

2608 IF EER =B:rCyeCy +i : dwli 
3048 TF COE GSH = 49: tly = ily td: croviine 
3850 IF C(OGEGS = 54: ulysuly + i : dwlire 
ey ie MELD 3 St wae ue allie : 
9078 IF OERD = 52: try = try t+ do: dwli 
3688 IF COREG) = 27 : EXIT icol 

3938 EHD REPeat loop] 

3999 END DEF ine keyscan 

fe 


ARCHIVE, as everyone knows, is a very poverful database. 
Unfortunately, it is only as powerful as you ore a 
proarammer. Anyone con create a sailing list filer w a 
customer file or a stockfile. It is the ability to wite 
procedures “which utilize the information in the records that 
mokes ARCHIVE one of the better databases on any computer. 


r. 


We ore going to stort a nev series in AR called BIC 
ARCHIVE which vill attempt to shou uou hw to wite 
procedures first on a rather simplistic level ond then on a 
more complex one. In this issue ue are going to shou you a 
procedure that vill print mailing labels. We vill start vith 
ora that prints one record at a tise and then show you‘ hou 
to modify it so that you con print a selected subfile. 


For single sheet sailing labels, you reed 6 “iprint 
statements so the labels alvays line up correctiy. If you 
hwe a database file vith the fields— fnomef, inme, 
street$, citys, states ond ziph, you could create a 
procedure called LRLS which would look like this: 


proc labels 

iprint fnome$;” "sinomed 
iprint street$ 

lprint citys; 

Iprint stated;” “szip$ 
(print 

(print 

endproc 


You could, if you vanted put the city ond state fields on 
the same line. fs log as you have ó “Iprint” statements, 
the labels vill line up correctly. 


With this procedure, you con, whenever a record is on the 
screen, type “labels” and a mailing label vill be generated 
for that specific record. This is fine if you are only in 
need of a feu labels. But, suppose, like us, you hwe a 
reusletter or vant to send cut a flyer to your customers or 
wen birthday invitations to 2 or 58 or 588 people? To have 
to print the labels one at a time vould be very 
tine-consuming to soy the least. 


Host of you, ue hope, knou hou to use the SELECT command 
froa uithin ARCHIVE. If yu umt to create a subfile of 
people uho ore only froa the state of California, you uould 
tpe in : select statef="CA" and after ahile, you vould 
hae a file that only contained people who live in that 
state. 


This is wat ve do vith the @ Report. We have a rameric 
field named “issues.” This is where ve log in the number of 

issues you have left in your subscription. If you order for 
all of 1987 in January of 1997, ve log you in for 12 issues. 

Everytige ue generate a sailing lobel, it subtracts one from 
the issues field. So, uen ve print labels for all our 
subscribers in January, if ue look at the “issues” field, it 
vill then show the mater “eleven.” Ye hove witten the 
procedure so that a label is generated only if “issues)8.” 


The procedure for the cbove starts by selecting 
“issuesdd." It then begins printing the entire subfile. Hous 
gost people do not need numeric calculations so belou is a 
procedure to print “all” of anything: 
proc printer 

input “position” sx 

position x 

while not eof O 

Iprint frome$(1) ;" "sines 

iprint streets 

iprint city$;” “sstates 

iprint * “szip$ 

(print recnuad 

lprint 


next 
enduhile 
endproc 


You will notice sose variations betueen this procedure ond 
the previous one. Every record you enter into ARCHIVE is 
assigned a record rember. You can find out the current 
record nuber of a record on the screen by typing: “print 
recnmO° ond the number vill be given. fs you add records, 
and depending on hou the file is ordered or selectad, this 
number say change. 


Hoever, once you have selected your subfile uhich you 
uant to print, each record's number uill stay the some for 
that session. Before printing, the procedure asks you for 
the record number you uont to begin vith. We do this becouse 
when you print over 58 labels at a tise, if your labels bind 
or you run out of labels preaaturely, or ubatever, you con 


see vhat number record vas the last one that vos okay ond 
then uhen you stort the procedure again, you knou exactly 
uhere to start froa again. As you can see, one of the 
“iprint” lines does print the record number. If you do not 
vant to do this, that’s up to you. 


The pain difference over this procedure and the previous 
one is the use of the ‘while not eofO° line. This 
construct; is a very important database concept to grasp, 
ond exceedingly poverful. Once you hove selected your 
subfile, vith this construct, the procedure suystesatically 
starts at the first file ond continues doing the 
instructions (in this case the “lprint” statements) until 
the last record in the file. So nou, instead of having to 
manually “run” the procedure to print each label, you merely 
type in the uord “printer” (ies the nome of the procedure) 
md all the selected records will be = printed. 


Hext aonth ve vill shou hou you can use the UPDATE command to very 
easily make changes on either a single record or a large group of 
records. 


GRIS 


We have some itess-ve uont to sention., Brett Lidstone in Canoda is 
having problems connecting a Hayes 308/1208 baud sodea to his AL. 
He cannot get it to vork either vith the sodapter or iust vith a 
straight cable. If anyone out there has been successful in hook- 
ing up a Hayes, write us and ve'll forvard the inforaation to 
Brett. 


We are going to start a sall classified section for subscribers 
uho vant to try ond sell used equipwent they have or uho are look- 
ing for a piece of used equiprent to purchase. You aust be a sb- 
scriber of AR and the uord count sust not exceed tuentyfive 
words INCLUDING your nome ond address. The cost is 25 cents per 
uord 


A neu version of SIDEVIHDER has been released which uill poke it 
sore compatible uith sore printers. The initial version uas only 
intended for printers which vere fully compatible vith the Epson 
RX8G. Version @.2 is sore tolerant of “sort cf" coapatible 
printers ond it can vith a fev glances at your oun printer anual, 
be user configured for your printer providing it sakes a little 


- pretence at being Epson compatible. If your printer is cobie of 


using ony 8 pin Epson screen dump, then SIDEWINDER should be con- 

figurable for your printer. If the dump turns out none proportion 
al, you vill be able to configure it to be proportional. The Epson 
Rx08 has 6 different 3 pin araphics sodes ond your printer acy not 
have as sany os this. You can configure the program so only your 
valid rades we displayed in SIDEWINDER. 


If you hove a printer that uses ESC "K") for a bit image sode but 
instead of Epson's 488 dots per 8 inches your printer does 64d, 

you con infora SU and it vill act accordingly. To be coapatible 

vith W's 3 densities on Y printer axis, Ut is necessary that your 
printer uses Epson's ESC 3°) code for 1/216" linefead. If you do 
not have this don’t panic because the triple density mode is only 

preferable uhen doing quite seall screen dumps of 2° or saaller. 
If you only have 2 graphic modes ond cannot use W's true 3 Y axis 
densities, you vill still be happy uith the program as there is 

nothing vorth comparing vith it. 


Considering that you can dump both upright or sideuays, full or 
portial screen dumps, and any any of these at ony size, Wis on 
extrenely useful proaraa. Even if you only use it to knock out 28 
foot “Happy Birthday” type banners. 


_ 
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NORRING NITH PASCAL FILES 
+4794 By: Mel MacKaron FRR RFR Eee 


A reader wote this month uith a problem that is 
certainly not unique to Frogrommers uho are trying to learn 
Pascal. His problem was hou to do 170. While I vent over 
his sple code, I found areamber of other basic errors, 
again cf a type that are not unccamon to nwices to this 
language. Folloving is his listing, a general commentary on 
the errors and how to avoid thea, and a comple proaram which 
perforas simple I/O, 


In tha sain part of the program, designated by tte 
keyuord BEGIN, he begins by (correctly) opening the fila: 
however, he never attached a name to the file. In Super 
hoever he never attached a nome to the file. In Sue- 
BASIC, for example, you can use a construction such us 


open #4 ,edv2_testfile 


__ The some opplies here. Incidentally, you con only urite, 
tu urllE of TEXT in Pascal (vith some feu exceptions). 
Therefore, the declaration of F as a FILE of ARECORD in VRR 
uon't work; you should declare (filename) of type TEXT. 
Then, use the following statement: reurite(f filenames. 


proga introduction input output s 
This vill attach the name to the output file. Aftervard you 


COTE vill only refer to 'f'. This is clearly isio shoun in gy 
Rabi = i; somple program, 
hmb = 2 


The statement PUT) on the next line doesn't tell the 
progom uhat to PUT into file F. (Personally, I seldoe use 
PUT and GET, as most Pascals support the use of BRITE and 
READ in these situations.) 


oo ae a Se a 
u 
ECN Pa fe ee 


wa wo wo 


type ior E 
frecord = record Enter the progran listing I have provided and try to 
Fiald! : integers trace out how it accomplishes its task. Run it. It voks 
Field? : integer: just fine. If you uont another example of programaings lock 
Field3 : integr: at the Pascal article iñ last month's GL Report. it, asain, 
Fialdd : integer: demonstrates 1/0 in Pascal, both to and from disk and to the 


Fields : integer 
ends 


wor 
Fields : records 
end; 
F: file of irecord; 


tegin 

ranite), 

cut) s 

writelnt’ Begin File 10°) 
ord. 


In the very first line of the program one key element 
tas been caitted: the rome of the textfile. IKPUT and 
QUIFUT are standard Pascal files, but you reed to address 
the I/0 file as I have done in ay example, 


Second, the athe of this saple has defined a lot of 
constants (CRD uhich ore never used. It's best to delete 
thes. While the Metaloelo compiler hich he used will let 
you get awy vith this, others, such as a URZ mainframe wiil 
flag these vith a varning message. Of course, they take up 
needless space and, ina time and space-critical erviron- 
sent, con wake a major difference, 


The coding for RECORDS is correct, but they are never 
used (and should, too, be omitted). In my sample, I have 
mdided thes end opted for on arau of integers, as this is 
a stapler data format for the novice. 


_ There are a number of errors in the YAR section. First, 
Fields is declared as tpe Record. Rather, it should be de- 
clared as of type Arecord, which uas defined in the TYPE 
Section. Second, the author placed on END statement within 
the UR section. This in itself vould couse the program to 
Tash. You sheuld never use EHD in a WAR section. Only use 
it for loops, procedures, functions, record declarations, 
oe UE statements, und, of course, ot the end of your 


printer, 
progra introduction (input output storage) ; 


{This program is a demonstration of saving and retrieving 
data from a Pascal program.} 


const 
demme = ‘ndv _testfile’s © 


type 
fournua = arroyll..4] of integers {uork u/four numbers? 
outdev = packed array {1..13] of chars (holds filenase) 
var 


i; 
value : integer; 


drive : har; 
data : fournumberss 
Tidevice ; outdey; 


storage : text; {must declare file tue} 


begin {main program) 


uriteC’This is a program which prompts the user’); 
uriteln(' to enter four’) s . 
urite('numbers. It vill then ask for the microdrive’); 
uritelnC to use, vill’); 

uriteC save the numbers, and vill then retrieve thea’): 
uriteln('from the’): 

uriteln(’storage device and print them on the <creen.'); 
uritelns i 

urite "Before proceedings be sure that a FORMATTED’); 
uriteln(' cartridge is in')s 

uriteln(’ the drive you vish to uses’); 

urttalns 


s 


ie vill close this issue vith same examples cf ccrean dimes frea 
Sidevinder. Haxt month ve vill continue our series on procedures 
in Archive and hope to have more information on Miracle's Midi 


for i = 1 to 4 do interface and Sandy's neu products. 


begin 
uriteC Enter value ‘sists’: "23  iEnter value 1:} 
readin (value) 5 Im I R JAR 
datali] := vaiue (teap. storage) UB Mis xT MO 
k- a aues ee SE UNTIL NEXT MONTH... 
uriteins 
witeCEnter drive meber (lor D: 9; i 
readinidr iva) 


until dive in ('1','2']: deust select either 1 or 2} 


Ikeyice i dante; igssign file mæ) 
IŪdevicel4] := dive; {4th do = drive naber 
peur ite(storace lidevice) s iopen file for uniting? 
fo i= 1 to 4 do 

writelnistoraca datali)): durite data to file} 
uriteins 


write Bata is roy stored. It vill nou be read frea '); 
iritaintlidevices ; 

uriteln('and printed to the sereen. H; 

uritelns 

reset storage Iideyice) s iopen file for read only} 


for i = 1 tod do 
begin 
readinistorase datalil? s {read data fros filed 
upiteln(‘Value sisli is ‘ datalil:2) 
end; 


uriteins 


uriteint End of deaornstration’) 


end, ‘intreduction? 


If you have any questions concerning this article, or if 
you would like to see further Pascal problems addressed in 
BR, please write to Curry Computer. If your query requires. 
a personal response, please be cure to enclose on SASE dith 
adeguate postage for the reply, 
BNI ORION OOOO, 


We talked uith Arnie Gardiner at Sandy UK recently ond he told us 
the 256k battery-becked RAM card is still not ready but should be 
"very shortly- in about a sonth.” The board vill plug into the ex- 
consicn port and tetusen plug-ins to the QL should be able to keep 
information in ianea] for about six WEEKS. 


Sandy also will have ready shortly a PLES board which vill plug 
into your IBM and allo your IEM to run OL programs. The board is 
nore op less the some that FUTURA vill have ond vill retail ‘in the 
U.K. for opproximately £280.08 (roughly $ 325.08 ). Ue hope to 
hee wore informaticn on this board by next issue. 


